home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Art Department Pro 2.15 d2.adf / RXProgs.lzh / last_loaded.adpro < prev    next >
Text File  |  1991-10-17  |  392b  |  22 lines
  1. /*     LAST_LOADED
  2. **
  3. **    This program finds out the name of the last image you loaded.
  4. **    It presents the name in an OKAY1.
  5. **
  6. **    Example ARexx program for controlling ADPro by ASDG Incorporated.
  7. **     Copyright 1991 By  ASDG Incorporated
  8. */
  9.  
  10.  
  11. ADDRESS "ADPro"
  12.  
  13. OPTIONS RESULTS
  14.  
  15. NL = '0A'X
  16.  
  17. LAST_LOADED_IMAGE
  18.  
  19. IF RC = 0 THEN DO
  20.     OKAY1 "Last loaded image was:" || NL || right(ADPRO_RESULT , 32)
  21. END
  22.